From: Juanma Barranquero Date: Tue, 24 Feb 2009 16:11:06 +0000 (+0000) Subject: * scroll-bar.el (scroll-bar-mode): Turn off scroll bars when X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1566 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a3716b299a14c3959dcbae8b7e8ba184ec555f25;p=emacs.git * scroll-bar.el (scroll-bar-mode): Turn off scroll bars when argument is 0. Doc fix. (Bug#1527) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4d946d146e0..6f0e7f288c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-02-24 Juanma Barranquero + * scroll-bar.el (scroll-bar-mode): Turn off scroll bars when + argument is 0. Doc fix. (Bug#1527) + * w32-vars.el (w32-system-shells): Doc fix. * image.el (image-load-path-for-library, insert-sliced-image): diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 37e7c0b65ce..eed6921b7e7 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -117,15 +117,15 @@ Setting the variable with a customization buffer also takes effect." "Toggle display of vertical scroll bars on all frames. This command applies to all frames that exist and frames to be created in the future. -With a numeric argument, if the argument is negative, -turn off scroll bars; otherwise, turn on scroll bars." +With a numeric argument, if the argument is positive +turn on scroll bars; otherwise turn off scroll bars." (interactive "P") ;; Tweedle the variable according to the argument. (set-scroll-bar-mode (if (if (null flag) (not scroll-bar-mode) (setq flag (prefix-numeric-value flag)) - (or (not (numberp flag)) (>= flag 0))) + (or (not (numberp flag)) (> flag 0))) (or previous-scroll-bar-mode default-frame-scroll-bars))))